home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs47.d81 / c64hdpro.arc / RDBOOT.SRC < prev    next >
Text File  |  2009-10-10  |  1KB  |  53 lines
  1. ;BPUT"READBOOT.SRC"
  2. ;RPUT"READBOOT.SRC"
  3. ;
  4. .LIB HARDJUMP.EQ
  5. .LIB HARDISKZ.EQ
  6. ;
  7. * = $0840
  8. START JSR HDINIT ;INIT CTL BLOCKS
  9.  JSR RESET ;ISSUE THE RESET
  10.  BCS RESETERROR
  11.  LDA #$80
  12.  LDY #$28 ;GET NUMBER OF SECTORS TO READ
  13.  LDX #$40 ;GET SECTOR NUMBER
  14.  JSR READIT ;GO CONVERT AND READ
  15.  BCS READERROR ;GO IF BAD
  16.  LDA #$E0 ;ADDRESS INPUT AREA
  17.  LDY #$10
  18.  LDX #$69
  19.  JSR READIT
  20.  BCS READERROR
  21.  JSR 52224
  22.  JMP $C000 ;END
  23. ;
  24. READIT STA BUFADR+1 ;ADDRESS INPUT
  25.  STY BLKCNT ;# 512 BYTE BLOCKS
  26.  STX SECNUM+2
  27.  LDA #0
  28.  STA HDNUM ;CLEAR THE DRIVE NUMBER
  29.  STA SECNUM
  30.  STA SECNUM+1
  31.  JSR SEC2CYLDCB ;CONVERT TO DISK ADDR
  32.  LDA HEAD ;FILL THE DCB
  33.  STA HDNUM
  34.  LDA CYLLSB ;GET LOW CYL ADDR
  35.  STA CYLNUM
  36.  LDA CYLMSB ;GET HI CYL AND SECTOR
  37.  STA SECADR ;PUT IN DCB
  38.  JMP READ ;READ AND RETURN TO CALLER
  39. ;
  40. RESETERROR LDX #0
  41.  .BYT $2C ;
  42. READERROR LDX #0
  43. READERRORL LDA RESETMSG,X
  44.  BEQ DONE
  45.  JSR $FFD2
  46.  INX
  47.  BNE READERRORL
  48. DONE RTS
  49.  BRK
  50. ;
  51. RESETMSG .BYT 'RESET FAILED',13,0
  52. READERRMSG .BYT 'READ FAILED',13,0
  53. .END